* subr.el (accept-change-group): Fix arg usage.

Fixes: debbugs:6095

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 173b2345c582726c79451980e8bbe7555d5f5d98..c6a024a36e0c36f6c676dbf77103d85238a0eb7d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-04-23  Andreas Politz  <politza@fh-trier.de>
+
+       * subr.el (accept-change-group): Fix arg usage (Bug#6095).
+
 2012-04-23  Chong Yidong  <cyd@gnu.org>
 
        * cus-edit.el (customize-apropos, customize-apropos-options):

diff --git a/lisp/subr.el b/lisp/subr.el
index 8e296aa742289e9f2213ee772d3815a786d08c3c..2404f6a56d2f4cbdf291091acef464655a9d5296 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2391,7 +2391,7 @@ to `accept-change-group' or `cancel-change-group'."
 This finishes the change group by accepting its changes as final."
   (dolist (elt handle)
     (with-current-buffer (car elt)
-      (if (eq elt t)
+      (if (eq (cdr elt) t)
          (setq buffer-undo-list t)))))
 
 (defun cancel-change-group (handle)